home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_PICT / Source / UncommentedPSCode / Comments < prev    next >
Encoding:
Text File  |  1995-06-12  |  1.6 KB  |  103 lines
  1. %BEGIN Comments
  2. /rotateX    0     def
  3. /rotateY    0    def
  4. /DoingRotate    false    def
  5. /shortComment
  6. {
  7.     /commentKind exch def
  8.     
  9.     commentKind  /RotateEnd eq
  10.     {
  11.         DoingRotate true eq
  12.         {
  13.             restore 
  14.             /DoingRotate false def
  15.         }
  16.         if
  17.     }
  18.     {
  19.         commentKind  /DashedStop eq
  20.         { [ ] 0 setdash }
  21.         {
  22.             commentKind  /TextIsPostScript eq
  23.             { /suppressText true def }
  24.             {
  25.                 commentKind  /TextEnd  eq
  26.                     { /rotateText false def }
  27.                 if
  28.             }
  29.             ifelse
  30.         }
  31.         ifelse
  32.     }
  33.     ifelse
  34. }
  35. def
  36. /longComment
  37. {
  38.     /commentKind exch def
  39.     commentKind  /RotateCenter eq
  40.     {
  41.         /thePoint exch def
  42.         /rotateX thePoint 1 get def
  43.         /rotateY thePoint 0 get def
  44.     }
  45.     {
  46.         commentKind  /RotateBegin eq
  47.         {
  48.             /rotateInfo exch def
  49.             save
  50.             /DoingRotate true def
  51.             rotateInfo 2 get rotate
  52.         }
  53.         {
  54.             commentKind  /SetLineWidth eq
  55.             {
  56.                 /lineWidth exch def
  57.                 /penWidth lineWidth def
  58.                 /penHeight lineWidth def
  59.             }
  60.             {
  61.                 commentKind  /SetGrayLevel eq
  62.                 {
  63.                     /greyvalue exch def
  64.                     /foregroundColor [ greyvalue greyvalue greyvalue ] def
  65.                 }
  66.                 {
  67.                     commentKind  /DashedLine eq
  68.                     {
  69.                         /dashInfo exch def
  70.                         dashInfo 1 get dashInfo 0 get setdash
  71.                     }
  72.                     {
  73.                         commentKind  /TextCenter eq
  74.                         {
  75.                             /rotateInfo exch def
  76.                             /textCenterX rotateInfo 1 get def
  77.                             /textCenterY rotateInfo 0 get def
  78.                         }
  79.                         {
  80.                             commentKind  /TextBegin eq
  81.                             {
  82.                                 /rotateText true def
  83.                                 /rotateInfo exch def
  84.                                 /textAngle rotateInfo 3 get def
  85.                             }
  86.                             {pop}
  87.                             ifelse
  88.                         }
  89.                         ifelse
  90.                     }
  91.                     ifelse
  92.                 }
  93.                 ifelse
  94.             }
  95.             ifelse
  96.         }
  97.         ifelse
  98.     }
  99.     ifelse
  100. }
  101. def
  102. %END Comments
  103.